10z=12
11m=z*2
12DIMg(m,m)
13FORy=1TOm-1
14FORx=1TOm-1
15g(y,x)=192
16NEXT,
17FORa=&C00TO&C17
20?a=(a?&F73-32)*3
21NEXT
22r=RND(-TIME)
23MODE4
24PROCa(z,z)
25VDU31,z-1,z-1,225
26*FX4,1
30x=2
31y=2
32g(y,x)=194
33REPEAT
34FORb=-1TO1
35VDU31,x-2,y+b-1
36FORa=-1TO1
37v=g(y+b,x+a)
40VDU32+v
41NEXT,
42g(y,x)=0
43k=GET-136
44y=y-(k=3)*(g(y-1,x)=0)+(k=2)*(g(y+1,x)=0)
50x=x-(k=0)*(g(y,x-1)=0)+(k=1)*(g(y,x+1)=0)
51g(y,x)=194
52UNTIL(x=z)*(y=z)
53*FX4,0
60VDU30
61FORy=1TOm-1
62FORx=1TOm-1
63VDU32+g(y,x)
64NEXT
65PRINT
66NEXT
67r=0
68PROCa(2,2)
69END
70DEFPROCa(x,y)
71g(y,x)=0
72v$=""
73IFr>0THENg(y-b,x-a)=0 ELSEVDU23,1,-(r=0);0;0;0;
80FORr=1TO7STEP2
81b=r DIV3-1
82a=r MOD3-1
83IFg(y+b*2,x+a*2)<>0THENv$=v$+CHR$(r+64)
90NEXT
91l=LEN(v$)
92IFl=0THENENDPROC
93r=INT(RND(1)*l)+1
94r=ASC(MID$(v$,r,1))-64
100b=r DIV3-1
101a=r MOD3-1
102PROCa(x+a*2,y+b*2)
103GOTO80
104REMmmm JJJ 11dd11dd(44JJ J4
